home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / A / ASU Library.sit / ASU Red Ryder Shell Source / 9600 < prev    next >
Encoding:
Text File  |  1988-04-07  |  401 b   |  28 lines  |  [TEXT/MACA]
  1. (9600.PROC)
  2. COPYINTO B$,S$
  3. CONCAT B$,-E-7-1-FULL
  4. COMM B$
  5. SCREEN ON
  6. TYPE ^M
  7. PAUSE 10
  8. PROMPT stination:
  9. CONTAINS H$,ACIBM
  10. IF YES TYPE ACIBMPC^M
  11. CONTAINS H$,ADMIN
  12. IF YES TYPE ICIBMPC^M
  13. CONTAINS H$,ACVAX
  14. IF YES TYPE ACVAX^M
  15. CONTAINS H$,LIBR
  16. IF YES TYPE LIBRARY^M
  17. PROMPT CLOSED
  18. CONTAINS H$,LIBR
  19. IF YES JUMPTO LIBR
  20. CONTAINS H$,ACVAX
  21. IF YES END
  22. TYPE ^M
  23. PROMPT NAL TYPE: 
  24. PAUSE
  25. TYPE VT100^M
  26. END
  27. :LIBR
  28. TYPE 2^M